Friend Class frmAbout
    Inherits System.Windows.Forms.Form

    Private Sub cmdSysInfo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSysInfo.Click
        Call StartSysInfo()
    End Sub

    Private Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        Me.Close()
    End Sub

    Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = String.Format("About {0} {1}", My.Application.Info.AssemblyName, GetAssembly.GetName.Version.ToString(2))
        lblTitle.Text = My.Application.Info.AssemblyName
        lblVersion.Text = String.Format("Version: {0}; Build Date: {1:g}", GetAssembly.GetName.Version.ToString(4), System.IO.File.GetLastWriteTime(GetAssembly.Location))
        lblDescription.Text = "This program was developed to display data from a variety of database files to assist in data analysis and model calibration. It was developed by Lloyd Chris Wilson, Ph.D., P.E., of Wilson Engineering, LLC, St. Louis, Missouri.\n\nThe project was sponsored by Georgia EPD with significant technical guidance by Dr. Roy Burke III. It was funded by the U.S. Environmental Protection Agency, Region IV, Atlanta, Georgia with Jim Greenfield as the Technical Coordinator. The author also thanks Steven Davie, Tetra Tech, Inc., and Bob Olson, Natural Resource Engineering, Inc., for their contributions to the project.".Replace("\n", vbCrLf)
        lblDisclaimer.Text = "The user is responsible for verifying the correctness and applicability of all model inputs and results."
    End Sub

    Public Sub StartSysInfo()
        Dim SysInfo As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\MSINFO32.EXE"
        If My.Computer.FileSystem.FileExists(SysInfo) Then
            Shell(SysInfo)
        Else
            Throw New IO.FileNotFoundException("File not found.", SysInfo)
        End If
    End Sub

End Class